Electronic Clipper 1997 January/Electronic Clipper 1997 January.iso/ideasrc/ace.dir/00025_Script_25

Text File | 1996-12-16 | 4KB | 143 lines

on startmovie
  global slider, toolH, toolV, gallery, holder
  set slider = 0
  set the locH of sprite 40 to toolH
  set the locV of sprite 40 to toolV
  set gallery = "slideshow"
  set holder = "0"
end

on stopmovie
  global toolH, toolV
  set toolH = the locH of sprite 40
  set toolV = the locV of sprite 40
end

on pressit button
  puppetsound "clickdn"
  repeat while the mousedown
    set the visible of sprite button to false
    updatestage
  end repeat
  set the visible of sprite button to true
  puppetsound "clickup"
end

on tools
  repeat with n = 41 to 46
    puppetsprite n, true
  end repeat
  repeat with n = 41 to 46
    set the locV of sprite n to the locV of sprite 40 + 26
  end repeat
  set the locH of sprite 41 to the locH of sprite 40
  set the locH of sprite 42 to the locH of sprite 40 - 86
  set the locH of sprite 43 to the locH of sprite 40 - 48
  set the locH of sprite 44 to the locH of sprite 40 - 3
  set the locH of sprite 45 to the locH of sprite 40 + 41
  set the locH of sprite 46 to the locH of sprite 40 + 82
  updatestage
end tools

on rollem2
  if soundbusy(1) then
    nothing
  else
    set the castnum of sprite 2 to 6
  end if
  if rollover (7) then
    go frame "center"
    Set the locH of sprite 2 to the locH of sprite 1
    Set the locV of sprite 2 to the locV of sprite 1
    updatestage
    if the mousedown then
      if sprite 2 intersects 3 then
        sound playFile 1, "gotem.aif"
        puppetsprite 2, true
        set the castnum of sprite 2 to 31
        updatestage

      else
        sound playFile 1, "guns.aif"
      end if
    end if
  end if

  if rollover (8) then
    go frame "right"
    repeat while rollover (8)
      if the mousedown then sound playFile 1, "guns.aif"
      set the locH of sprite 1 to ( the locH of sprite 1 - 10)
      if the locH of sprite 1 < 5 then
        set the locH of sprite 1 to 5
      end if
      set the locH of sprite 2 to the locH of sprite 1
      set the locV of sprite 2 to the locV of sprite 1
      updatestage
    end repeat
  end if

  if rollover (9) then
    go frame "left"
    repeat while rollover (9)
      if the mousedown then sound playFile 1, "guns.aif"
      set the locH of sprite 1 to ( the locH of sprite 1 + 10)
      if the locH of sprite 1 > 600 then
        set the locH of sprite 1 to 600
      end if
      set the locH of sprite 2 to the locH of sprite 1
      set the locV of sprite 2 to the locV of sprite 1
      updatestage
    end repeat
  end if

  if rollover (10) then
    go frame "up"
    repeat while rollover (10)
      if the mousedown then sound playFile 1, "guns.aif"
      set the locV of sprite 1 to ( the locV of sprite 1 + 10)
      if the locV of sprite 1 > 630 then
        set the locV of sprite 1 to 630
      end if
      set the locH of sprite 2 to the locH of sprite 1
      set the locV of sprite 2 to the locV of sprite 1
      updatestage
    end repeat
  end if

  if rollover (11) then
    go frame "down"
    repeat while rollover (11)
      if the mousedown then sound playFile 1, "guns.aif"
      set the locV of sprite 1 to ( the locV of sprite 1 - 10)
      if the locV of sprite 1 < -230 then
        set the locV of sprite 1 to -230
      end if
      set the locH of sprite 2 to the locH of sprite 1
      set the locV of sprite 2 to the locV of sprite 1
      updatestage
    end repeat
  end if
end



on keyDown
  if the key = 1 then set the soundLevel to (1)
  if the key = 2 then set the soundLevel to (2)
  if the key = 3 then set the soundLevel to (3)
  if the key = 4 then set the soundLevel to (4)
  if the key = 5 then set the soundLevel to (5)
  if the key = 6 then set the soundLevel to (6)
  if the key = 7 then set the soundLevel to (7)
  if the key = "S" then
    if the volume of sound 2 = 0 then
      set the volume of sound 2 to the soundlevel * 36
    else set the volume of sound 2 to 0
  end if
end keydown